www.gusucode.com > (粗糙集数据分析工具箱) matlab源码程序 > matlab代做 修改 程序工具箱 (粗糙集数据分析工具箱) matla 中使用/rsda/Rsupper.m

    function w=Rsupper(y,a,T)
z=ind(a,T); w=[]; [p,q]=size(z);
for u=1:p
    zz=setdiff(z(u,:),0); zzz=intersect(zz,y);
    [zp,zq]=size(zzz);
    if zq~=0, w=cat(2,w,zz); end
end
w=sort(w,2);